home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / The World of Computer Software.iso / netprn.zip / NETPRNQU.INC < prev    next >
Encoding:
Text File  |  1992-10-05  |  671 b   |  36 lines
  1. {
  2.   NETPRNQU.INC 1.0
  3. }
  4. function GetPrinterQueue(LPTDevice : Byte; var printQueueID : LongInt) : Byte;
  5. var
  6.   Request :
  7.     record
  8.       Size : Word;
  9.       SubF : Byte;
  10.       LPTD : Byte;
  11.     end;
  12.   Reply :
  13.     record
  14.       Size : Word;
  15.       ID   : LongInt;
  16.     end;
  17.   NovRegs : Registers;
  18. begin
  19.   Reply.Size := 4;
  20.   with Request do begin
  21.     Size := 2;
  22.     SubF := $0A;
  23.     LPTD := LPTDevice;
  24.   end;
  25.   with NovRegs do begin
  26.     AH := $E0;
  27.     DS := Seg(Request);
  28.     SI := Ofs(Request);
  29.     ES := Seg(Reply);
  30.     DI := Ofs(Reply);
  31.     MsDos(NovRegs);
  32.     GetPrinterQueue := AL;
  33.   end;
  34.   printQueueID := NetWareSwapLong(Reply.ID);
  35. end;
  36.